object BaseAppErrorFrm: TBaseAppErrorFrm Left = 284 Top = 133 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = '%APPNAME%' ClientHeight = 398 ClientWidth = 459 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCloseQuery = FormCloseQuery OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object BottomPanel: TPanel Left = 0 Top = 358 Width = 459 Height = 40 Align = alBottom BevelOuter = bvNone TabOrder = 1 DesignSize = ( 459 40) object SendBtn: TButton Left = 297 Top = 9 Width = 75 Height = 23 Anchors = [akTop, akRight] Caption = '&Send' TabOrder = 0 OnClick = SendBtnClick end object DontSendBtn: TButton Left = 377 Top = 9 Width = 75 Height = 23 Anchors = [akTop, akRight] Cancel = True Caption = 'Cancel' TabOrder = 1 OnClick = DontSendBtnClick end end object MainPanel: TCDLPanel2004 Left = 0 Top = 0 Width = 459 Height = 358 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] DrawBottomFrame = True Align = alClient Caption = 'MainPanel' TabOrder = 0 DesignSize = ( 459 358) object DescriptionLbl: TLabel Left = 42 Top = 41 Width = 391 Height = 13 Anchors = [akLeft, akTop, akRight] AutoSize = False Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Panel3: TPanel Left = 42 Top = 65 Width = 397 Height = 276 Anchors = [akLeft, akTop, akRight, akBottom] BevelOuter = bvNone Color = clWindow FullRepaint = False TabOrder = 0 object AutomaticErrorMsgLbl: TLabel Left = 0 Top = 0 Width = 397 Height = 52 Align = alTop Caption = '%APPNAME% has encountered a problem and needs to close. We are s' + 'orry for the inconvenience. We have created an error report that' + ' you can send to help us improve %APPNAME%.'#13#10 WordWrap = True end object DetailsMemo: TMemo Left = 0 Top = 67 Width = 397 Height = 112 Align = alClient ScrollBars = ssVertical TabOrder = 0 OnKeyPress = DetailsMemoKeyPress end object CheckBoxesPanel: TPanel Left = 0 Top = 179 Width = 397 Height = 97 Align = alBottom BevelOuter = bvNone ParentColor = True TabOrder = 1 DesignSize = ( 397 97) object SystemInfoCheckBox: TCheckBox95 Left = 0 Top = 5 Width = 188 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = '&Add system information to the report' Checked = True State = cbChecked TabOrder = 0 end object StackRegistersCheckBox: TCheckBox95 Left = 0 Top = 25 Width = 156 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = 'Add &error details to the report' Checked = True State = cbChecked TabOrder = 1 end object ViewPrivacyLink: THyperLink Left = 263 Top = 83 Width = 134 Height = 15 Anchors = [akRight, akBottom] WordWrap = False Caption = 'View Our Privacy Statement' TabOrder = 2 OnClick = ViewPrivacyLinkClick end object ViewReportLink: THyperLink Left = 153 Top = 83 Width = 95 Height = 15 Anchors = [akRight, akBottom] WordWrap = False Caption = 'View Report Details' TabOrder = 3 OnClick = ViewReportLinkClick end object ContactMeCheckBox: TCheckBox95 Left = 0 Top = 45 Width = 152 Height = 17 Anchors = [akLeft, akTop, akRight] Caption = 'Please &contact me by email:' Checked = True State = cbChecked TabOrder = 4 OnClick = ContactMeCheckBoxClick end object EmailEdit: TEdit Left = 159 Top = 44 Width = 238 Height = 21 Anchors = [akLeft, akTop, akRight] TabOrder = 5 end end object Panel4: TPanel Left = 0 Top = 52 Width = 397 Height = 15 Align = alTop BevelOuter = bvNone ParentColor = True TabOrder = 2 object Label6: TLabel Left = 0 Top = 0 Width = 218 Height = 13 Caption = 'Please &describe steps to recreate the problem:' FocusControl = DetailsMemo end end end end end